home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / coordtext.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  4.2 KB  |  131 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCoordText 
  3.    Caption         =   "Coordinate Text"
  4.    ClientHeight    =   2535
  5.    ClientLeft      =   2445
  6.    ClientTop       =   2910
  7.    ClientWidth     =   3930
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   2535
  13.    ScaleWidth      =   3930
  14.    Begin VB.TextBox MarkSize 
  15.       Height          =   375
  16.       Left            =   2040
  17.       TabIndex        =   9
  18.       Top             =   1320
  19.       Width           =   1455
  20.    End
  21.    Begin VB.TextBox TxtHeight 
  22.       Height          =   375
  23.       Left            =   2040
  24.       TabIndex        =   8
  25.       Top             =   480
  26.       Width           =   1455
  27.    End
  28.    Begin VB.OptionButton CoordType 
  29.       Caption         =   "Cartesian"
  30.       Height          =   255
  31.       Index           =   2
  32.       Left            =   360
  33.       TabIndex        =   4
  34.       Top             =   1200
  35.       Width           =   1215
  36.    End
  37.    Begin VB.OptionButton CoordType 
  38.       Caption         =   "Stacked"
  39.       Height          =   255
  40.       Index           =   1
  41.       Left            =   360
  42.       TabIndex        =   3
  43.       Top             =   840
  44.       Width           =   1215
  45.    End
  46.    Begin VB.OptionButton CoordType 
  47.       Caption         =   "Dotted"
  48.       Height          =   255
  49.       Index           =   0
  50.       Left            =   360
  51.       TabIndex        =   2
  52.       Top             =   480
  53.       Width           =   1215
  54.    End
  55.    Begin VB.CommandButton cmdOK 
  56.       Caption         =   "OK"
  57.       Height          =   375
  58.       Left            =   240
  59.       TabIndex        =   0
  60.       Top             =   1920
  61.       Width           =   1335
  62.    End
  63.    Begin VB.CommandButton cmdCancel 
  64.       Caption         =   "Cancel"
  65.       Height          =   375
  66.       Left            =   2520
  67.       TabIndex        =   1
  68.       Top             =   1920
  69.       Width           =   1215
  70.    End
  71.    Begin VB.Frame Frame1 
  72.       Caption         =   "Coordinate Type"
  73.       Height          =   1575
  74.       Left            =   120
  75.       TabIndex        =   5
  76.       Top             =   120
  77.       Width           =   1575
  78.    End
  79.    Begin VB.Label Label2 
  80.       Caption         =   "Mark Size"
  81.       Height          =   255
  82.       Left            =   2040
  83.       TabIndex        =   7
  84.       Top             =   1080
  85.       Width           =   1095
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Text Height"
  89.       Height          =   255
  90.       Left            =   2040
  91.       TabIndex        =   6
  92.       Top             =   240
  93.       Width           =   975
  94.    End
  95. Attribute VB_Name = "frmCoordText"
  96. Attribute VB_GlobalNameSpace = False
  97. Attribute VB_Creatable = False
  98. Attribute VB_PredeclaredId = True
  99. Attribute VB_Exposed = False
  100. Option Explicit
  101. '/******************************************************************/
  102. '/*                                                                */
  103. '/*                      TurboCAD for Windows                      */
  104. '/*                   Copyright (c) 1993 - 2001                    */
  105. '/*             International Microcomputer Software, Inc.         */
  106. '/*                            (IMSI)                              */
  107. '/*                      All rights reserved.                      */
  108. '/*                                                                */
  109. '/******************************************************************/
  110. ' Storage for read-only property indicating whether
  111. ' or not the dialog box was cancelled. Default is
  112. ' False. Note that the declaration is Private, so
  113. ' that the value cannot be set from the OLE client
  114. ' application. The client reads the value using the
  115. ' DialogCancelled property.
  116. Private blnDialogCanceled As Boolean
  117. ' Read-only property indicating cancellation of the
  118. ' dialog.
  119. Property Get DialogCanceled() As Boolean
  120.     DialogCanceled = blnDialogCanceled
  121. End Property
  122. Private Sub cmdCancel_Click()
  123.     ' Set the value of the read-only property that
  124.     ' tells the caller the dialog was cancelled.
  125.     blnDialogCanceled = True
  126.     Me.Hide
  127. End Sub
  128. Private Sub cmdOK_Click()
  129.     Me.Hide
  130. End Sub
  131.